#install package if necessary
library(readxl)
#censusEd.xlsx in working directory
#reads first sheet by default
edData <- read_excel("censusEd.xlsx")
edData
## # A tibble: 3,198 x 42
## Area_name STCOU EDU010187F EDU010187D EDU010187N1 EDU010187N2 EDU010188F
## <chr> <chr> <dbl> <dbl> <chr> <chr> <dbl>
## 1 UNITED S~ 00000 0 40024299 0000 0000 0
## 2 ALABAMA 01000 0 733735 0000 0000 0
## 3 Autauga,~ 01001 0 6829 0000 0000 0
## 4 Baldwin,~ 01003 0 16417 0000 0000 0
## 5 Barbour,~ 01005 0 5071 0000 0000 0
## 6 Bibb, AL 01007 0 3557 0000 0000 0
## 7 Blount, ~ 01009 0 7319 0000 0000 0
## 8 Bullock,~ 01011 0 2014 0000 0000 0
## 9 Butler, ~ 01013 0 4640 0000 0000 0
## 10 Calhoun,~ 01015 0 20939 0000 0000 0
## # ... with 3,188 more rows, and 35 more variables: EDU010188D <dbl>,
## # EDU010188N1 <chr>, EDU010188N2 <chr>, EDU010189F <dbl>, EDU010189D <dbl>,
## # EDU010189N1 <chr>, EDU010189N2 <chr>, EDU010190F <dbl>, EDU010190D <dbl>,
## # EDU010190N1 <chr>, EDU010190N2 <chr>, EDU010191F <dbl>, EDU010191D <dbl>,
## # EDU010191N1 <chr>, EDU010191N2 <chr>, EDU010192F <dbl>, EDU010192D <dbl>,
## # EDU010192N1 <chr>, EDU010192N2 <chr>, EDU010193F <dbl>, EDU010193D <dbl>,
## # EDU010193N1 <chr>, EDU010193N2 <chr>, EDU010194F <dbl>, EDU010194D <dbl>,
## # EDU010194N1 <chr>, EDU010194N2 <chr>, EDU010195F <dbl>, EDU010195D <dbl>,
## # EDU010195N1 <chr>, EDU010195N2 <chr>, EDU010196F <dbl>, EDU010196D <dbl>,
## # EDU010196N1 <chr>, EDU010196N2 <chr>